﻿Imports System.IO
Imports System.Drawing.Printing

Public Class FrmRptInventario

    Private printFont As Font
    Private streamToPrint As StreamReader

    Private Sub btImprimir_Click(sender As System.Object, e As System.EventArgs) Handles btImprimir.Click
        If cmbTReporte.SelectedItem IsNot Nothing Then

            Dim frmPrinter As FrmPrinter
            If cbDesuso.Checked Then
                frmPrinter = New FrmPrinter(cmbTReporte.SelectedIndex, True)
            Else
                frmPrinter = New FrmPrinter(cmbTReporte.SelectedIndex)
            End If

            frmPrinter.ShowDialog(Me)
            'imprimir(frmPrinter.path)
            'Dim frmPrint As New FrmPrint(frmPrinter.path)
            'frmPrint.MdiParent = Me.MdiParent
            'frmPrint.Show()
        End If
    End Sub

    Private Sub btSalir_Click(sender As System.Object, e As System.EventArgs) Handles btSalir.Click
        Me.Close()
    End Sub

End Class